﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	导航页面
'	2012.4.5

Sub main
	Dim rs,body_,i,class_,a
	a=getData("a")
	hu.title = wapTitle&"网站地图"
	body_ = checkMsg()'信息
	body_ = body_ & "[div=nav]-"& hu.url("?aid=index","首页")&"-网站地图[/div]当前:"
	If a="" Then
		body_ = body_ & "文章栏目."&hu.url("map.asp?a=2","论坛栏目")&"<br/>"
		Set rs = hu.conn("select classid,class from 74hu_list")
		if not rs.eof then
			i=1
			While Not rs.eof
				If (i mod 2)=0 Then
					class_="even"
				Else
					class_="odd"
				End If
				body_ = body_ & "[div="&class_&"]"& hu.url("list.asp?id="&rs("classid"), i&"."&rs("class"))&"[/div]"
				rs.moveNext
				i = i + 1
			Wend
		else
			body_ = body_ & "暂时没有<br/> "
		end if
		rs.close
		set rs=nothing
	Else
		Set rs = hu.conn("select classid,name from 74hu_bbs")
		body_ = body_ & hu.url("map.asp","文章栏目")& ".论坛栏目"&"<br/>"
		if not rs.eof then
			i=1
			While Not rs.eof
				If (i mod 2)=0 Then
					class_="even"
				Else
					class_="odd"
				End If
				body_ = body_ & "[div="&class_&"]"& hu.url("bbs_topic.asp?id="&rs("classid"), i&"."&rs("name"))&"[/div]"
				rs.moveNext
				i = i + 1
			Wend
		else
			body_ = body_ & "暂时没有<br/> "
		end if
		rs.close
		set rs=nothing
	End If
	hu.body = comUbb(body_)
End Sub

%>